﻿Public Class Main

    Public Shared Sub Main()
        Dim loginForm As New frmLogin
        Dim mainForm As New frmLoadData

        If loginForm.ShowDialog() = DialogResult.OK Then
            mainForm.CurrentUser = loginForm.SelectedUser
        End If

        Application.Run(mainForm)

    End Sub

End Class
